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NXTCRD!.  LTOCBUFFER INX 0»€@2401200K0000000)3 02600000 
Serine Le ,BUFRERIOIs sp ochae THEN So a Re dale ‘02610000 
Cae 49 136 abaved 
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IF CTYPE=KERNEL AND C14*5IZE) GTR MEMOISKADR) THEN 02612000 
BEGIN 02612100 
LOADED SsLOAVED Oh 23 a 02612400 
END ELSE 02612500 
RN ANE EMDISKACR+SI¢2 iLR PBOTTOM N 02612400 
BEGIN 02612700 
SPOUTC32)3 epee pe 
G ‘x ; 6312900 
ENDS o261 sede 
TEMMP i= BUFFER; 02620000 
BL R a4 4 ee 
BUFFER[IC] s& IF TYPESKERNEL TREN 1 ELSE DECICMEMDISKADRIF 02640000 
LOADED = LUADED OK 02630000 
—(}+ TYPEMKERNE, Trey 4 ELSE 23 ‘ 
IOCBUFFER INX. OrPi4O00000000000C RSI ZEL 2784216) )3 62660000 
BUFFER te TEMMP3 02670000 
’ Sse eee nena = -Y.1r XW oY, 
END>s 02680000 
$ SET OMIT = NOT cuCL 02669999 
SAN! PRI R REMOVER ; A - i Tit oo N2AFOo0g 
— BEGIN . 02700000 
ee. STMEAMCA ECL ABEL G0 111s rx4s(L80) shy AUR IEICE NEG O)x 02710000 
: : MONT ARS ¢ 1LO00 
BEGIN 55(BSts sLiTt ")3 DSte cl Te"; 1? =MUNTHSS 02712000 
SIFTAR XCUSSFACHRINSSSLITIS"G vara ase JUMP QUT TO RMVE)s02720000 
5 = iD = * bd js 73 = sss Sts sh Ste/CHE 0) 20200 
RMVESDSt=OL IT” REMOVED CS 02730000 
4 aaa Gel 2100 
60 HOw per sor KG 
GO DECK; per enee 
NAM =f "BY NAME "5 G0 FIN, ole 
HOR :DSts7LIT"BAD HOR"; GO FINS pa7es6G 
ec tU Sas AL LES OEGK™? 02730400 
iN a ADR ot 3 be . : O) 
STt=L0C ne XtFN14 Note Specs YrtsXs OSt7PILes 02730600 
ENDS 02740000 
IF NOTCPLIO CR P2IG) THEN IF NOT SPOIO THEN ELSE 02751000 
ee INX 0» @740000000000000) | ELSE pec o20eU 
DCMONT NX 0 ™ a neEN @F O70C0400000 O00 - 
@640070004000000)5 aE TedGbG 
END: 02770000 
$ POP = feos 0277000 
SAVE: REAL “PROCEDURE EOM; Bp te 2 02780000 
os BEGIN GO TO TIMER ENDS - ae 95 . 02790000 
ThERELEAA ERE LESTE CLOT AR RE eWeek ea ee ee ee O2860000 
TART $@203 Gx © 43 GO TO STARTS 02810000 
TIMER sk ac qa TO TIMERS % TIME INTERVAL 02820000 
B_ KEYRBOAKD KE QUES a 8 
reastetzai Go GLOKs LPA FINISHED | : 02840000 
3@268P(26)3 GB. GLOBs 4 LPB FINISHED | ; * 02850000 
P27IEPCOL4s| ODeRTN & I/O #1 FINISHED. ; 02860000 
P@308PC@L1D>_OD»RTN)S ’ I/U #2 FINISHED 02870000 
P@3LIP COLO», ODsRTNIS &2 T/L #3 FINISHED , 02880000 
$@32°PC@175L0 sRIN)$ & T/0 #4 FINISHE 02890000 
ee ae $e3419GC TO TIMERS ® INQUIRY REQUEST ae 02900000 
os wee ee ee STARTS HEREW SSSA ETS S Cee eee WORE eRe ee 02910000 
af BGeS8TS)i Pata ead “faba le es a : 02920000 
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Be 8 8 eRe SE 


* 3 4, u 2) y 5 


SET OMIT 


POP OMIT 
SET OMIT 


READCARD! 


$ SET OMIT 


POP OM 


= 


DISKTUP «+ #43 
NUMWDS $= 303 


R 2 LOM at45 1433 
STREAMCCORE): 
BEGIN 0S « @ LIT "0"3 SI ¢ CORES 
e A 
ENDS 


SHAR t= CMECOREII&3108%36:1043 


LOADER « CORE; 


CORE # COKE+303 


‘ t : M4 age () Ri38 # H 
CORE ¢ COURE+403 
FILER «© E~CMECCOREI IJ&3004i 38210); 
CLA aly O03 
FILEX t= (MECOREIJI&450CBt381107; 
eee is wie + ao0) 
RK 5 RS1i01; 
CORE ¢ CORE+403 
READBACK «+ CORES 
ORE PORE al 
ZEROMSIMCCOREII&30£L BF 3624073 
Soper conesee) ; 
f M OR R200 A! 36310 
CORE t=CCRE+3105 
SPOLOtSPCKRR). baetis 


P OsaPr Rh 
P2I0!=P(RRR), C26%113 
coo. 
OWADR O99 995 NI 
Neha anem 
20 


FOR I tz 13 STEP S UNTIL 26 


DO SHARCI) t= SHAR(I41] 85 OF BCLEAR ALL INT 


NFOLO = O03 
INFOCI] ¢ QO; 
TOC™CIANFO INX 0)2@140004000000000)3 
SNO 3s INFOCY 4s2u3 S2GEY SYSTEM NUMBER 
FIRSTCARDSSTRUES 
RTl #213 


I ¢ 03 
BUFFER s= (MCCOREI]&10Lat34s10)3 


CARD ¢ CORES 
IGCCARD, €240000040000000)3° 
REAM TSCARD+10)) DS 32 : Naan 
TYPES =SCANWORD(FIRST)3 
NOTCCUOL) 
RS ARN THEN 
IF TYPE NEQ 10 ne TYPE NEG KERNEL THEN 


| BEGIN 


Pou i). 
GO TU ERROR; 
END3 


GO TYPESWITCHITYPE]3 ae 
IF PRINTWAIT THEN BERING ELSE. PCDELIS 


GO. TIMER? 


a OGD EOC N 


ZREAD CARD 


02930000 
02940000 


nc ag el ct 


02960000 

02970000 

02980000 

02990000 

03000000 

é OOOO 

039020000 

039030000 

ue le AN ele a ee 
03060000 

eerie © lO BY ZUG ny 6 ene ee a ce 
030860000 
03090000 
O 00000 
03110000 
03120000 
03130100 
03130200 


ON SS ra Se 


03130400 
03131000 


Se ae IN OSG i eet Bn 


03131100 
oeeener? 

3 00 
03131404 
03140000 
0 000 
03160000 
03170000 


03185000 
031¥0000 
03200000 
03200025 
03200030 
) 0050 
03210000 
03230000 
Q 100 
03250000 
- 03260000 


D5 000 Gms oe a a ee a 2 oe 


03230000 
03260099 
0 HO100 
03280200 
03280300 
03280400 


SenCN PEROT: 9 Mi= 1012), 01 © an ee a SE revo oe Oe eee oe Pe 


03280500 
03280600 


03280700 
Gesezece 


80900 
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n s. SB = x. BS R5 


e@ eo Ce @ eo ee 


IF P NEQ DELIM THEN GG ERROR 


% 03<90000 
ERROR: SPOUTC2)3 03300000 
ole N PCRRR ot = ; . na 
DO UNTIL PCRRR),C243t43 03320000 
: : P(64sSTS)3 03330000 
O REY ART : 
ree OM OOOO polit Sata s 
a 03350000 
MEMDUMP?3 03351000 
WADED 3 QOADERS; 2 AD R 1 : eee Ot 
CARD & = CURES 03370000 
GO TO KANOLE: ; 03380000 
coe aes gn a ta 
REM: 03391000 
$ SET OMIT = COOL 03391100 
RRORS ———~-—_Qpasiedg 
$$ POP. OMIT 03391300 
$$ aia oer = NoTCeecL) 03391400 
@NrecORE: 0.3.49 00 pe ee 
TO(CARD#@240g000a0000000)1 03391600 
STREAM(C8SCARD+10)3 DSseellivase; Coe tee 
P NCW DR N \ NAAM HEN ‘ ore 2 ta Re ot 
LF HORO NEQ “s" THEN GO ERROR avser obs 
ELSE RTURTIGERTI AI 3601 03392100 
oo DRO 00 econ etal 
IF PCSCNCHORGQ)) NE@ DELIM THEN 03392300 
IF RTCRTIJ=e"STOP " THEN BEGIN RTI@*SRTI°13 Go READCARD; ENLO3392400 
’ y JERROR O33927500 pi I hn nee ee eases 
ELSE 03392600 
qf pene NEQ "/" THEN G0 ERRORS ; 033%2700 
4 pat) be ( pr —____QOjJ4392800 tt es ey 
IF HORO NEQ "se" THEN GQ ERROR 03392900 
ELSE see aide peunaerants 
k $s sehDROS 3100 ae 
IF PCSCNCHDRO)» »DUP) NEG PERCENT THEN 03393200 


03393300 
SE GO LP 393400 
ELSE BEGIN PCDEL)S GO REMS ENDS03393500 


dal ARD Est 


£ POP OMIT 03393600 

g 03393700 se 
 SYSTEMS4 SPECIAL ("=")3 03400000 
ee ee SHARCO] ** SCANUMBER 3 03410000 
IF SHARCO] GTR 4 OR SHARLOD LSS 4 THEN 03420000 
REGIN SHARLO] t= 43 03430000 
GC TO ERRUKS 03440000 

NE O3450000 
. GO. TO REAUCARD3 03460000 
uae oa 03470000 
DpIREctoryTopt O3480000 = 

$ SET OMIT = NOTCCOCL) 03480050 
IF He FIRSTCARD THEN 03460100 

2 0 BQ200 _ 
“SPoQUT(aT Ds 03480300 
wae gerne GO BOMBOUTS 03480400 
$ POP OMIT . 03480501 
DISKTOP :=SCANUMBER: 03440600 

i - — 03490000 nae, - 

NETeeaas. ss 03500000 
DISKIOC SCOT sKTOP*SYSND)+INFOD> Ean 03510000 


39 


} 
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0 a a * . : > =. 3 = = : 


Be & OS 


Cees 


$ POP OMIT 03510101 
GO TO REAUVCARYS 03920000 
DIRECTS. INFOL4S) © SHARC GIJ*SCANUMBER? 03540000 
GQ TO READCARD; 03550000 
3 : é GHONO00D hit oa ia 
FENCE? SPECIAL C"S")3 03570000 
SMe eee ee CP CDUP)@ SCANUNBER ? DIV 1024x1024} 03560000 
00.0.0 aba’ A, e Q 03590000 Bx 
IF INFOL1¥]>670000 THEN INFOC193+@700003 03600000 
GO TO READCARDS 03610000 - ‘ 
. Oa a at Eiger ye, Sh 
ESU3 ESUTEMP:2=SCANUMBERS 03630000 
SPECTALC™&")3 03635000 
DO REACCARD? 03640000 Pre rete ca tel etsy Taine, 8 | 
& 03450000 
DATE! MN © SCANUMBER3 03660000 
OR MAY 3 2._I HER a 0 RROR O2O670000 _ ae on Ps 6 
SPECIAL("/")3 03660000 
al ¢ pene ee 03640000 
A Aue _O370U0009 Go a oe ee eS 
YR ¢ SCANUMBERS 03710000 
DY «© MONTHSC(MN@114+DY3 : 03720000 
QR MOD ANI < MOL OR R MOD 400 « O 0 30000 
ANC MN 2 3 THEN uy ¢ OY+13 03740000 
DY « YR MUD 100 x 1000TDY, 03750000 
RE At ¢(D + “Od 3 © Wat 000101 0 Ra sian eA SS, 
BEGIN SI * 03 OS © & DEC END; 03770000 
GG REACCARD; 03780000 
: : O3ZB1Li 0000 
USE: IF TYPE NEQ 8&8 THEN XY*SSCANWORDCOGPTIONS) 03820000 
ELSE XY?S4B=SCANUMBERS 036¢0100 
KY st HE A 0 ERRORS 0383000 ates aS 
TREALtsa3 03880000 
FOR Kise STEP ¢t UNTIL on DO TREAL?TSORTREALCi22%46)3 03890000 
LiF 0 aztih 8 LL al 03900000 arene a Betas at aratahe Pump lady tw ole tel: 
SPECIAL("&*")} 03905000 
GO READCARD; 03910000 
, 039 O00 
FILEGs 03930000 
$ SET seal = NOTCCOOGL) 03940000 
Oo FRROK 03950000 
3 POP OMIT 03950050 
$ SET OMIT = COUL 039600000 
: “ PCSCNCLABFLS[ 26° NEw NAAM HEN GO ERRO SOT OO Ot 
ITF PCSCNEN)) NEQ DEL IM THEN GO ERROR 03972000 
ai Heo B ELSE IF N NEQ@ "/" THEN GO ERRORS 03973000 
nN ARE ro fees AA HE N @ RAL A : 03974000 
IF DISKTOP LSS O THEN BEGIN. SPOUTC6)3 GO ERROR: END3 03975000 
 FILEH(C]3 CSP COMP DIESEL Yt aes T1 ot ae 1574 seb ed oc 
| 03364 ° 0 j 00 
TR POSCNEND) NEQ DELIM THEN GO ERRORS 03976000 
ss ne PUBENCE LLEHL 39, NEG NUMBER: THEN 60 ERRORS 03977000 
areas sae JEN GO-ERROR 0 78000 Say 
IF PCSCNCN)) "NEG DELIA THEN GO ERRORS” 03979000 
IF Be as eek Ea Nig NUMBER THEN GO ERRORS 03980000 
Fic it a RR OR 0) Ai O00 et te be 2 
IF PCSCNEN?) ‘NEQ NUMBER THEN Go. ERROR 03982000 
ELSE ne ee STR 999 THEN 40 ERROR 03983000 
e * a5ens 


23 


«s «2 KAN 
= = 


Data Documents/inc. 


IF CKs=sPCSCNCN))) = PERCENT THEN 03985000 
peck 03986000 
B N st SOE OL OOO ee Ee et 
IF P(SCNCND) NE@ “NUMBER THEN 0 ERROR 03988000 
ELSE FILEHCOJ]e( eP (DUP) 2&@ 03989000 
aa a NEMS 9989400 a 
K3aN3 039469200 
IF PCOCNON)) DELI THEN GO ERRORS 03990000 
P A FQ NUMBER TREN R 03991000 st a Nn iat aon B Byes fs 
ELSE FILEHLO]3=C*PCOUP)IE 03992000 
NC15%33815]3 03992100 
HCOTssCwPCDUPIIRC CNS 20) 9G he Pac shie teh 
RCN DIV K)C30336%12)3 03942300 
IF PCSCNCN)) NEQ@ PERCENT THEN GO ERROR 03993000 
ND s ; 4000 pee artes Aen pnt oy 
Ni sFILEHC 9]; 03996000 
FOR K ¢ 1 (STEP 1 UNTIL N DO 04180000 
Ne a DOOO — 
MG rCARG i eeiuecue«uoddaen 04200000 
IF SCANWBROCFIRS1) £ 0 TREN GU TO ERROR} 04410000 
RO GRE: 220000 St 
FILENCOeK] ¢ SCANUMBERS 04230000 
ee aioe 04240000 
5 WAL R oF 00 eats Datta lented 
IF FILEHL9+K] NEG nISKTOP+4 THEN LOWADR? SFILEHC9+#KIF 04245000 
END; 04250000 
OR i = Ne O4 26000 Sees ot, Bons a 
FILEH(9+K] ©« 3 04270000: 
FILEH(4)88@44; 04280200 
is “FILFA SRD Sih SON 8 ee OOO C. stein Ze. 
I ¢ [+23 04300000 
pion oCds CI Clv 2)eFILEN)S . 04310000 
04329000 SS Siete ee Ne ere coe 
SEGIN DISKIOC Js LABELS): 04330000 
J # J4163 04340000 
04350000 Neils Osh tet 
END3 04360000 
GO TO READCARDS 04370000 
> POP OM O4370050 a 
~- RECONSTRE 04371000 
S$ SET OMIT = NOT COOL : 043711400 
Ee es RC sHAR 10 RE ADCARD fo 04371200 z : Sr ae, See A ene 
$ SET OMIT = COOL 04371300 
GO ERRCR3 04371400 
oT att O 100 = 
~ REMCDA i 04372000 
oe s ‘Ser OMET & NOT coo. 04372009 
mae ier: * RE A : O4372010 he sree Me ke 
$ ‘SET OMIT | COOL 04372015 
GO TO ERRUR; 04372020 
b OR OM 3) a 
PGUtte taster eser tess NO MORE deliridil li eh oh teens ta 04380000 
SHARC A) SB INFOLAT? 04390500 
ie &, “a 3 $ 395000 eee oe 
IF SPOIC THEN 04395100 
BEGIN 04395200 
SPOU ; 04395300 
 KEYINGL2)24 ©). eae. 04395400 
iF NOT OKC EMESSAGECLZI1. Rute a2) fie ter _ 04395500 
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. _— a pe steqiait Nes @ C 
BEGIN STREAM(Bt=(MESSAGEL12)))3 04395600 
rd] CStz24 LIT "COOQL/COLD START ABORTEDe"S 04395700 @ 
PO ; se a i I aaa, 
DO UNTIL FALSE; 04395900 
a] END} 04396000 
RF AMC AI®INEG SVs ScMe ¢ 6050 a ee ee ee D aac 
BEGIN DSis Z0LIT"USER DISK BEGINS AT ) SIltsLac as 04346100 a 
e CSt=QvECs SViFuUL; OLt=pI78s OSt=7 FILL 3 DIs=SV3 04396150 
NSis Welt; 04346200 Pe i RE . atl 
i END$ . 04396250 | 
) SPOUTC27)3 : 04396300 \@ 
END a oe tee ete eee OS DOUG Oa aan A Aa ee eerie he ace 
$ SET OMIT = COOL 04397000 ! 
@ IF CINFCE4) LEQ DISKTUP OK CNTSLOWADR LSS INFUC4])) THEN 04397100 ! 
N SPC HEN 43497200 Ra AR I eee eee aes De, ie 
BEGIN SPOUTC62)5 IF Wei THEN SPOUT(65)3 ENDS 04397300 i 
@ GO guMBOUTS . 04397400 @ 
eNOS ¢ PEG ee rsh 3 eee So eh oe oo wets 
IF DISKTOP < O THEN 04400000 
@ BEGIN 04410000 
POL HR) N44200 ere ere a 
_ GO TO ERRORS 04430000 x 
eo: es ENDS , 04440000 \@ 
PoP OMT: mee: LE Gc eo a tne ta ie tg : vn eeu 
P IF ESUTEMP LEQ O THEN 04441000 ie 
@: BEGIN 04441106 - 
SPO ; se a AND Dt pan aS eh eS Be ee Fe a 
wi GO TO ERROR; 04441300 a 
@r END 04441400 2@ 
j R r) OP 3 10000 fatter fn By ; oct tlt 
pe IF "SWARLO] GTR 4 OR SHAREG] LSS 1 THEN SHARLOJ $= 13 neabeone a 
er $ SET OMIT = NOT (cook 04470004 “I@ 
ao Rew ek ek ee x ; fa Me ee od 04470005 ehh, RANA token a 
pee ; IF vee: GTR 10000 UR SWARL1] LSS 50 OR 04470010 
er. Sante) GTR 100000 UR SHARC4) LSS 50 04470015 a) 
Pp i x SF 0) )3 § @' ix 3 hy 3 oh OUT O08 On ne bose Fatal =: 33 ont anal 
s FOR naae STEP 1 UNTIL 29 DO 04470030 . i 
eo: IF PCSHARUNI+ TOP*xXCH*DEL) THEN ELSE 04470035 @ 
ign Ny RR Esk RIN =O} FND O447¢ a : Sea obtener 0, ee te 
bs Far Nieto STEP 5 UNTIL SHAREQ INES. Da 04470045 
e a} oe BEGIN : ee | 04470080 ‘@ 
ro MAREN BR SHARC N+1)) AND @3700000000000000) NEQ QO 04470055 ee Vas ead 
THEN BEGIN FNDERR&STRKUES SHARCNIPSSHARCIN+L]22=03 ENDS 04470060 - 
] IF (CSHARLN+3) OR SHAKEN+4]) AND 6 3700000000000U00 NEQ@ O 04470065 @ 
; He N AE END “RK STK SHAR LA + J] iz. MAKEN + Lit ; ND 7Q0 Ay. atoms sagen GE Aft Apher acu andy ie 
ie  ENOD a ee e os Ce 04470078 7 @ 
® es vo oe FNDERR ‘THEN sPoUT(S3)3_ eae 04470080 | i 
a Minoren es on eS a 6 an eee eee eee e af GCH#a7 O08 s-. : REN te BA ie oh OM c. caesinecsseea cls 
ai $ POP OMIT 04470090 ae] 
er | DISKIOCOs SHAR) 04470095 | “@ 
re a ESUTEMP NEQ INFOt2) THEN eS ) 04470400 — | 
lA Bt Sh Oke THEN. re es cal 2, 04870405 | @ 
ci STREAMCAISINFOLQI¢ sD acUce ieee TENE, C $=MESSAGE INX TT) 04470120 SE ERE EE 
Or BEGIN OI#SD1+315 SItsLUc as CrmDIs DItELOC Ds DSt=eDEcs 04470430 A® 
eae OTisloc 3 ts7 Z aC; BCTF SCa" * TH + 04 4 | Q Ce ew _..._4 
mee -  EESE DSteCHR)3 DSte4LIT" TO "3 ChebIs ObimLoc ps $188DEC104470150 5 
er. —OTtsLGC DF DS#a7FILLS Or tec oc 0 ae San. * THEN 04470160 @ 
a ee cee Se Soe i DSteCHr i. OS ist. Np. ee : Foca cy a! 0. P ; Bre alge te reese tse cl OP 
® @ @ 


@ 
ENO; 04470180 
@ SPOUT(69)3 04470200 
‘ 04470210 . — 
KEYIN(69)8 : 04470220 
@): IF NOT QK(MESSAGE INX 69) THEN Go BOMBOUTS 04470230 
‘ D 0 0: > dere 
$ POP OMIT 04470236 
oo; INFOC21]:5ESUTEMP3 04470240 
=_CoO0 04480000 2 eon se 
LABELSC2A"!l) © #1143 04490000 
eo; LABELS(29"1} « O08 04500000 
we OR = STEP N HAR. 2 = cas 
$ POP OMIT 04510050 
Ta $ SET OMIT = NOTC(COCL) 04520000 
OR ‘== p ” Ny 5 } ZER H Q 20200 Bee Se Ne ea a 
FOR Its STEP 1 UNTIL 3 DO DISKIDCOISKTOP*1+ZER0)5 04520300 
@}: : Tatevesnnes LOOK AT DIRECTORYTOP eR ek 04520400 
: NOE RR ; # 20450 itientatts, 
FOR ]tsc STEP 1 UNTIL 29 DU 04320500 
] IF PCINFOLI Js TOP *XCHLEL) THEN ELSE. 04520600 
\ NDERRS=TR £=02 De 04220700 ee tee: 
iF CINFOL2) DIV 100) GTR 10 -0R CINFote) mO0 100) GTR 10 04520800 
@ et THER BEGIN “SPOUTCS625° GO° BOMBOUTS ENDS 04520900 
bl cv f) H00 , 
Si | BEGIN “ENDERR 1? =1RUE3 INFOL81]$=13 ENDS 04321050 
2 @} IF INFCL9] LSS 0 THEN 04921100 
g 2 XN NOFRRi STR iF 0 H ND 0 2] Q Cb in Fatih! 
ei ; IF FNOERR THEN SPOUT (56)3 04521175 
2 OF Betasawases END OF DIRECTORYTOP EXAMINATION *eee th ewes 04521200 
Q we ae ing KYOCD K P= Nils INE OG : 0452 0.0 asd 
Pa $ POP OMIT 04530050 
Or N $® ESPBOTTOM $%START CLEAN ESPQL9K 04540000 
MR ANS D =SHARLO ri EN 04550000 Seley aca? One 
ae BEGIN SSTREAM(BISN*X$3F [LENDS 04560000 
or BEGIN SI%SLOC B}DSt=A VECSENDS 04570000 
PEND? O43580000 pacts ase ctoel mad a 
IF CNISCDISKTUP™SHARLOI°N))GEQ 63 THEN 04590000 
er IOCFILEH INX 06@140000007700000) 04600000 
: 5 04610000 Mines toe 
P TOCELILEH INX O09@1400000000000008NL27% 42161); 04620000 
OF N 35 P + 633 04630000 
9 0 TO MRCLEANS oe 0464000 ae 
END3 04650000 
& STREAM (BS sONISKTOP+1leXt=eF LEW) 04660000 
pearireer’ BEGIN SI3s, OC BsDSt=e DECFENDS 04670000 Se 
| Ese at ALO CEI LER. INK 0*@141320000000000 8g 04680000 
eon —  $ SET OMIT = NOTeeGOE 2: 04680099 
; Ce RO THEA SE: 7034523) ) 04680100 oo 
$ POP OMIT 04680101 
e $ SET OMIT = COOL 04680199 
1 $s POF ‘OMIT | ee a 94680201 : 
di = NoTCcoOL) ee oe : 04685000 
Ww fe : N JeDYSkKTUP+3). NLV. 035 72) 716 Hl O469 0000 gies as 
agen MNtSDISKTOP oe 04691000 
pa i YRt=INFOL4]3 04691100 
cn f PE&syiNFQo x10000005 04691200 
By TF PATO OR P2TO THEN BEGIN 04691300 
adil : STREAM CHI [MESSAGE (531125 , 04691400 
OF oe eta} en Be RINGER FOR. 2 0469! 500 sencca etic 
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7 6, 2, a ry a 4, c 5 53 = = 


BBE 


SPOUT(53)3 04691600 
ENDs 04691700 
_FOR Je P16 Ul PA soe en i i rr A ace ed SOC e L010 5101 Ae eae ee 
BEGIN 04710000 
NUMWOS %= 4803 04720000 
OHUTSKTOC@e( yay 5 é O47 30000 see 
FOR [t=O STEP 2@ UNTIL 28 CO 04740000 
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